{-# OPTIONS -Wall #-}

module Demo01 where



import Text.ZFormat





demo01 = char '*' <> padL 10 (text "123456") <> char '*'


demo02 = padL 32 (text "123456" $+$ text "123456789012" )
      $+$ widthRuler 32
      $+$ numberLine 32

demo03 = padR 32 (text "123456" $+$ text "123456789012" ) <> text "| after pad..."
      $+$ widthRuler 32
      $+$ numberLine 32

demo04 = char '*' <> indent 5 (text "text" $+$ text "text") 

demo05 = char '*' $+$ underline (text "this text" <> colon)
demo06 = underline (char '*' $+$ text "this text" <> colon)
demo07 = underline (char '*' $+$ indent 2 (text "this text" <> colon))


